unit DataModel;

interface

uses
  System.SysUtils, System.Classes, UniProvider, ODBCUniProvider,
  AccessUniProvider, Data.DB, DBAccess, Uni;

type
  TdtmdlPool = class(TDataModule)
    con1: TUniConnection;
    acsnprvdr1: TAccessUniProvider;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dtmdlPool: TdtmdlPool;

implementation

{%CLASSGROUP 'System.Classes.TPersistent'}

{$R *.dfm}

procedure TdtmdlPool.DataModuleCreate(Sender: TObject);
begin
  with con1 do
    begin
      Connected:=False;
      ProviderName := 'Access';
  //    Username := '';
  //    Password := '';
  //    Server := '192.168.82.201';
      Database := ExtractFilePath(ParamStr(0))+'dbdemos';
  //    Port := 3306;
      Connected:=True;
    end;
end;

end.
